00100	101	N=INP(ML)
00200		IZ=ML
00300		ML=ML+1
00400		IF(N.EQ.IBLA)GO TO 101
00500	C ⊗⊗⊗⊗⊗ MAY 13,71 @@@@@@@@@@
00600		JA=-1
00700		IF(N.EQ.IPP)GO TO 1
00800		IF(N.EQ.IE)GO TO 2308
00900		IF(N.EQ.'R')CALL RUNIT
01000	C   'RUN' MAY REPLACE 'END' FOR LAST INST.
01100		IF(N.EQ.ID)GO TO 7720
01200		CALL ERR(LN)
01300	1	CALL SCANR
01400	 	LPAR=VX1
01500		IJ=LPAR
01600		IF(QX.GE.0)GO TO 5703
01700		IJ=LPAR+4
01800	C  SETS UP PARAM FOR QUAD CALL
01900		V(I)=IJ+LK*10000
02000		V(I+1)=2*ALL
02100	C  TEST "ALL" FEATURE HERE!!!!!!!
02200	C  X=-13(DEGREES),=-14(X,Y),=-15(CIRCLE FUNCTS),=-16(LINE FUNCTS)
02300		V(I+2)=QX
02400		I=I+3
02500		QX=0.
02600	5703	IAMP=0
02700		IF(IJ.LE.NP(LK))GO TO 897
02800		IF(IJ.LT.31)NP(LK)=IJ
02900	897	IF(LPAR.EQ.32)LPAR=1
03000		V(I)=LPAR+LK*10000
03100	C  +1=WDCNT, +2=CODE, +3='NM' CCCCC
03200		IJ=I+1
03300		I=I+4
03400		ITMP=0
03500		CODE=0
03600		NFLG=1
03700		ML=IZ+M
03800	C   RE=REP  R=RHY  L=LIT  M=MOVE  MX=MOVX  N=NOTES  NU=NUM  
03900	C   S--L=SUBL  S--N=SUBN  T=TAP  RT=RTAP  RL=RLIST  RN=RNOTES
04000	C  QU=QUADC  QUX=QUADX 
04100	5702	ML=ML+1
04200	CC	IF(ML.GT.72)GO TO 99
04300		N=INP(ML)
04400		IF(N.EQ.IBLA)GO TO 5702
04500		IF(N.EQ.',')GO TO 5702
04600		NL=INP(ML+1)
04700		JA=-1
04800		ISUB=0
04900		IF(N.EQ.IXX)GO TO 2703
05000		IF(N.EQ.'R')GO TO 6702
05100		IF(N.EQ.IF)GO TO 8702
05110		IF(N.EQ.IPP)GO TO 7006
05115		IF(N.NE.'C')GO TO 4005
05120		IF(NL.EQ.'U')GO TO 7006
05160	C  FOR 'CUTOFF'
05200	4005	JA=0
05300		IF(N.EQ.IEN)GO TO 6005
05400		IF(N.EQ.'M')GO TO 703
05500		IF(N.EQ.'L')GO TO 2720
05600		IF(N.EQ.ISS)GO TO 6703
05700		IF(N.EQ.ITT)GO TO 4018
05800		IF(N.EQ.IQT)GO TO 5720
05900		IF(N.EQ.ISEMI)GO TO 2018
06000	C 7/75	IF(N.EQ.IPP)JA=-1
06100	C  FOR ;P5  P3;
06200	7006	CALL SCANR
06300		IF(ISUB.EQ.8)GO TO 8
06400		I=I+JJ
06500		V(IJ+1)=NNUM+DF
06600		IF(JJ.EQ.1)GO TO 4006
06700	C  IF NNUM IS '-2' THEN NOTES ARE PRINTED
06800		IF(NNUM.NE.-2)GO TO 5006
06900		IX=IJ+3
07000		DO 2006 K=2,JJ,3
07100	2006  CALL RANR(VX,K)
07200	C   FOR RAN. SELEC. OF NOTES.  FINDS HIGHEST NOTE.
07300	5006	IX=IJ+2
07400		DO 6006 K=1,JJ
07500	6006	V(IX+K)=VX(K)
07510		IF(NL.EQ.'U')GO TO 8006
07600		V(IX+JJ-2)=1.
07700	C  ABOVE ENSURES THAT LAST RAND. UNIT REACHES 100% - 5/74 *********
07800		GO TO 3013
07900	4006	IF(JA)VX1=VX1/100.+9999.
08000	C  CHANGES ;P5 P3; TO ;P5 9999.03; ***** CHECK OUT ON OTHER MACHINES!
08100		V(I-1)=VX1
08200		GO TO 3013
08210	8006	V(IJ+1)=-19
08220	C  FOR 'CUTOFF N1, N2' -- TO END RAND TIMES TOGETHER.
08230		GO TO 3013
08300	6702	IF(NL.EQ.IE)GO TO 2703
08400	C   JUMP IF "REP"
08500		IF(NL.EQ.ITT)GO TO 4018
08600	C   JUMP IF "RTAP"
08700		CODE=-22
08800		IF(NL.EQ.'L')CODE=-46.0
08900	C   JUMP IF "RLIST" (LIST OF RAND SELECTIONS)
09000		IF(NL.NE.IEN)GO TO 1016
09100	C   JUMP IF NOT "RNOTES"
09200		JA=0
09300	C   FOR SCANR
09400		CODE=-36.
09500		GO TO 1016
09600	6005	CODE=-33
09700		IF(NL.NE.'U')GO TO 1016
09800		CODE=-44.
09900	1610	JA=-1
10000		GO TO 1016
10100	8702	CODE=-35
10200		IF(NL.EQ.'U')GO TO 1016
10300		ML=ML+1
10400		CALL SCANR
10500	7	V(IJ+1)=CODE+DF
10600		V(IJ+2)=1.
10700		IF(VX1.GT.15)CALL ERR(4) 
10800	C TRAPS F NUMS >15.
10900		V(I)=VX1+85.
11000		GO TO 7703
11100	C********  MOVE IS NEXT ***********
11200	703	BW=V(IJ-2)
11300		IC=0
11400	CC	DO 7031 K=ML+1,72
11500		DO 7031 K=ML+1,LEND
11600		IF(INP(K).EQ.KSLA)GO TO 8031
11700	CC	IF(INP(K).EQ.ISEMI)GO TO 8031
11800	7031	IF(INP(K).EQ.IXX)IC=-1
11900	C   IC=-1 IS FOR MOVX
12000	8031	I=I-1
12100		V(I)=0
12200		X=-9900.-BY
12300		IF(BY.EQ.0)X=-9900.-BG(LK)
12400	   	IF(BW.EQ.X)GO TO 8005
12500		IF(BW.NE.-9900.-BY)GO TO 1102
12600		V(IJ-2)=X
12700		GO TO 8005
12800	1102	V(IJ)=V(IJ-1)
12900		V(IJ-1)=X
13000		IJ=IJ+1
13100		I=I+1
13200	8005	LP=IJ-1
13300		BW=-9900.-X
13400		ISUB=2
13500		IZ=-1
13600	C  ABOVE ARRANGES NECESSARY BG TIME HEADINGS.
13700	4703	GO TO 1299
13800	102	IF(IZ.LT.0)GO TO 2102
13900	C  SKIPS NEXT FIRST TIME
14000		BW=V(ICT)+BW
14100		V(I)=-9900.-BW
14200		V(I+1)=V(LP)
14300		V(I+2)=(JJ+2)*ALL
14400		V(I+3)=CODE+DF
14500		I=I+4
14600		IZ=1
14700	2102	IF(BW.LT.10000.)CALL BGSORT(BW)
14800	C   ROUND-OFF NONSENSE
14900	2	VX3=-9900.
15000		VX2=VX3 
15100		CALL SCANR
15200		IF(JJ.GT.0)GO TO 5102
15300		JJ=ILIT
15400	C SLASH WILL REPEAT MOVE INPUT -- 6/74
15500		DO 6102 K=1,JJ
15600	6102	VX(K)=VX(K+20)
15700		GO TO 5005
15800	C::::::::::::::: PUT THIS, AND AT 5505, IN SCOR5 ALSO ::::::::::::::
15900	5102	IF(JJ.EQ.4)CALL ERR(LN)
16000	C  ERROR -- 4 ITEMS IN MOVE IMPOSSIBLE
16100		IF(VX3.NE.-9900.)GO TO 3102
16200		IF(VX2.NE.-9900.)GO TO 4102
16300		VX2=VX1
16400		VX1=10000.
16500	4102	VX3=VX2
16600		JJ=3
16700	C  1,2 OR 3 NUMS CAN BE USED IN NON-RAN MOVES.
16800	3102	IF(IZ.GE.0)GO TO 3006
16900		V(IJ)=(JJ+2)*ALL
17000	C  WORD COUNT
17100		CODE=-55.
17200		IF(JJ.NE.3)CODE=-57.
17300		IF(NFLG)CODE=CODE-1.
17400		IF(IC)CODE=-59.
17500	C  CODE=-56 OR -58 FOR NOTES.
17600		V(IJ+1)=CODE+DF
17700		IZ=0
17800	3006	IF(NFLG.EQ.1)GO TO 5005
17900	      CALL RANR(VX,2)
18000	      IF(JJ.NE.3)CALL RANR(VX,4)
18100	C   FOR RAN. SELEC. OF NOTES.  FINDS HIGHEST NOTE.
18200	5005	ICT=I
18300		ILIT=JJ
18400	C  SAVES FOR SLASH REPEAT FEATURE
18500	  	IJ=IJ+1
18600		DO 1006 K=1,JJ
18700		VX(20+K)=VX(K)
18800	C  SAVES FOR SLASH REPEAT FEATURE
18900	1006	V(IJ+K)=VX(K)
19000		I=I+JJ  
19100		IJ=I+2
19200		IF(IAMP.EQ.0)GO TO 1299
19300	C*************** MAY 18,71 ***** ALWAYS RESETS TO TIME 0 WHEN MOVE IS USED.
19400		V(I)=-9900.-BY
19500		GO TO 8703
19600	
19700	7703	V(IJ)=4.*ALL
19800	8703	I=I+1
19900		GO TO 4773
20000	C   FOR SUBROUTINES, -12=NUMS.  -11=LETTERS.
20100	6703	CODE=-12.
20200		IF(INP(ML+3).EQ.'L')CODE=-11.
20300		V(IJ)=2.*ALL
20400		V(IJ+1)=CODE+DF
20500		I=I-1
20600		GO TO 4773
20700	4018	CNT(LK)=-9900.-BY
20800		P(LK)=V(I-4)
20900	CC 6/74 COLGATE 	JREAD=3
21000	CC 6/74 COLGATE	GO TO 4400
21100	1444	IF(READER(JNP))CALL RUNIT
21200	C  READS A LINE.  IF END OF FILE, JUMPS.
21300	443	IF(LN.NE.0)REREAD 107,K,IPT(LK,1)
21400		IF(LN.EQ.0)REREAD 8001,IPT(LK,1)
21500	C   NAME OF RHYTHM FILE. (ONLY ONE PER INST.)  READS DATA JUST BEFORE RUN
21600		IF(J.EQ.'CONDU')GO TO 444
21700		IF(NL.NE.ITT)GO TO 2338
21800		CODE=-23.
21900		GO  TO 1016
22000	2338	I=I-4
22100		GO TO 4773
22200	3018	CNT(KZY)=-9900.
22300		GO TO 1444
22400	444	P(KZY)=980000.
22500		GO TO 2308
22600	C   CAN'T USE 'TAP' OR 'RTAP' WITH INST KZY IF USING 'CONDUCT'.
22700	C  'REP'
22800	2703	ML=ML+1
22900		VX1=0
23000		VX2=0
23100		VX3=0
23200		IF(N.EQ.IXX)GO TO 2704
23300		INP(ML)=IBLA
23400		INP(ML+1)=IBLA
23500	C  WIPES OUT 'EP' IN 'REP'
23600	2704	CALL SCANR
23700	 	V(IJ)=3.
23800		V(IJ+1)=-66.0
23900		IF(VX1.EQ.32.)VX1=1.
24000		IF(VX1.EQ.0)VX1=LPAR
24100		IF(VX2.EQ.0)VX2=LK-1
24200		V(IJ+2)=VX1+VX2*10000.
24300		KL=VX2
24400		IF(DUR(LK).LT.0)DUR(LK)=DUR(KL)
24500		IF(VX3.EQ.0)GO TO 4773
24600		L=VX3
24700		ML=LK+1
24800		DO 1018 KL=ML,L
24900		IF(LPAR.LE.NP(KL))GO TO 997
25000		IF(LPAR.LT.31)NP(KL)=LPAR
25100	997	IF(DUR(KL))DUR(KL)=DUR(LK)
25200	C  TO SET DUR WHEN DUPLICATING NOTES THAT END WITH 'END;;'
25300		V(I)=V(I-4)+10000.
25400		V(I+1)=3.
25500		V(I+2)=-66.
25600		V(I+3)=V(I-1)
25700	1018	I=I+4
25800		GO TO 4773
25900	
26000	2018	IF(DF.EQ.0)GO TO 20181
26100	C NEXT FOR Pn SUBR/ I.E. NOTHING BUT P AND SUB CALL. 7/73
26200		V(IJ+1)=-201.
26300		V(IJ+2)=1.
26400		V(IJ+3)=0
26500		GO TO 7703
26600	20181	V(IJ)=3.
26700		V(IJ+1)=-66.
26800		V(IJ+2)=NW+LK*10000
26900		GO TO 4773
27000	C  READS /P5  .3 "ABC" .7 "XYZ"/
27100	
27200	8 	V(IJ+1)=-77.+DF
27300	C  DF HAS SUBR CALL INFO
27400		I=I+1
27500		VX(JJ-1)=1
27600	C  FOR RAND. SINGLE LITS.
27700		DO 3722 K=1,JJ,2
27800		V(I)=VX(K)
27900	3722	I=I+1
28000		V(IJ+2)=JJ/2
28100		V(IJ+3)=I
28200		DO 4722 K=2,JJ,2
28300		KN=I
28400		I=I+1
28500		L=VX(K)
28600		DO 6722 KL=L,LEND
28700		IF(INP(KL).EQ.IQT)GO TO 4722
28800		IV(I)=INP(KL)
28900	6722	I=I+1
29000	4722	V(KN)=I-KN-1
29100		V(IJ)=(I-IJ)*ALL
29200		GO TO 4773
29300	2720	QTS=0
29400		ISUB=104
29500		GO TO 1299
29600	
29610		JG=INP(K)
29710		IF(JG.NE.'-')GO TO 6113
29810		RETRO=0
29910		INP(K)=IBLA
30010		GO TO 113
30110	6113	IF(JG.NE.'$')GO TO 7113
30210	C  '$' IS FOR INVERSIONS IN 'NOTES'
30310		INVRT=0
30410		GO TO 113
30510	7113	IF(JG.NE.IBLA)GO TO 4113
30610	113	CONTINUE
30710	4113	DO 6361 JMOT=1,LCNT,3
30810		IF(JG.NE.LIST(JMOT))GO TO 6361
30910		VX1=0
31010		DO 40 M=JD+2,LEND
31110		JG=INP(M)
31210		IF(JG.EQ.IBLA)GO TO 40
31310	CCZZZ	IF(JG.EQ.KSLA.OR.JG.EQ.ISEMI.OR.JG.EQ.'*')GO TO 140
31410		IF(JG.EQ.KSLA)GO TO 140
31510		IF(JG.EQ.ISEMI)GO TO 140
31610		ML=M
31710		GO TO 240
31810	40	CONTINUE
31910	240	JC=JA
32010		JA=-1
32110		INP(K)=IBLA
32210		CALL SCANR
32310		JA=JC
32410	140	JC=1
32510		KN=LIST(JMOT+1)
32610		M=LIST(JMOT+2)+1
32710		IF(RETRO)GO TO 640
32810		JC=M-1
32910		M=KN-1
33010		KN=JC
33110		JC=-1
33210		RETRO=-1.
33310	640	IF(INVRT)GO TO 940
33410	840	X=V(KN)
33510		V(I)=X+VX1
33610	C  FINDS CENTER FOR INVERSION (+TRANSP.)
33710		I=I+1
33810		KN=KN+JC
33910		IF(V(KN-JC).NE.85.)GO TO 940
34010		V(I-1)=85.
34110		GO TO 840
34210	
34310	940	Z=V(KN)
34410		IF(INVRT.EQ.0)GO TO 440
34510		IF(VX1.EQ.0)GO TO 540
34610	C  " @Q N "  WHERE N= 1/2 STEPS IN 'NOTES' OR MULT FACTOR IN OTHERS.
34710		IF(CODE.EQ.-33.)GO TO 440
34810		V(I)=Z*VX1
34910		GO TO 7361
35010	440	IF(Z.EQ.85.)GO TO 540
35110		Y=0
35210		IF(INVRT.EQ.0)Y=(X-Z)*2.
35310		V(I)=Z+VX1+Y
35410		GO TO 7361
35510	540	V(I)=Z
35610	7361	I=I+1
35710		KN=KN+JC
35810		IF(KN.NE.M)GO TO 940
35910	
36010		INVRT=-1
36110		RB=V(I-1)
36210		DO 8361 L=JD,LEND
36310		JG=INP(L)
36410	C   PUT IN NOV 25, 72
36510	CCZZZ	IF(JG.EQ.ISEMI)GO TO 93612
36610		KN=L
36710		INP(L)=IBLA
36810		IF(JG.EQ.KSLA)GO TO 9361
36910		IF(JG.EQ.')')IPRN=IPRN+1
37010	CCZZZ8361	IF(JG.EQ.'*')IAMP=-1
37110	8361	IF(JG.EQ.ISEMI)IAMP=-1
37210		MLX=LEND
37310	C ↑↑↑↑↑↑↑ 6/75
37410		GO TO 93612
37510	9361	MLX=L
37610		IF(L.EQ.LEND)GO TO 93612
37710	C ↑↑↑↑↑↑↑ 6/75
37810	C  FIX THIS & =IBLA BY CHNGING DO LOOP TO 'GO TO' AT 6721,2722
37910		IF(IAMP.NE.0)GO TO 797
38010		IF(QTS)GO TO 1773
38110	C  GO BACK IF NOT END OF LINE
38210	797	JZ=-1
38310	93612	IF(IAMP.EQ.0)GO TO 93611
38410	C   NOV 25, 72
38510		IF(QTS)GO TO 3013
38610		GO TO 2722
38710	C  THESE ARE FOR "LIT" ITEMS
38810	C  *******  DO NOT USE '@-' OR '@$' WITH 'LIT', RLIST OR RNOT****
38910	C  NO $ WITH FUNC.  $ WITH NUMS AND RHY CAN GIVE NEG RESULT -- TRY IT!
39010	CCZZZ93611	IF(JG.EQ.ISEMI)GO TO 7773
39110	93611	IF(KN.EQ.LEND)GO TO 7773
39210		JZ=0
39310		IF(IPRN.NE.0)GO TO 1773
39410	C ↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑PICKS UP ' @X)/ ' SITUATION.  22/6/73
39510		GO TO 236
39610	C  LAST TIME FOR QUOTES
39710	
39810	C********↑↑ ↑↑ WAS TO 6017  JUNE 10,71
39910	C   JUMPS TO END STRING OF QUOTES
40010	6361	CONTINUE
40110		CALL ERR(LN)
40210	C @@@@@@@@@@@@@@@@@@@@@@@@@@
40310	5361	IF(N.EQ.'$')CALL ERR(LN)
40410	C  FOUND $  BUT NO @!
40510		IF(N.NE.ID)GO TO 53611
40610		IF(ISUB.NE.1)GO TO 53611
40710		IF(INP(JD+1).NE.IF)GO TO 236
40810	C  JUMP IF NOT DUTY FACTOR
40910		DF=DF-100.
41010		GO TO 43615
41110	53611	IF(N.NE.ISS)GO TO 53612
41210		IF(INP(JD+1).NE.'U')GO TO 53612
41310		DF=DF-200
41410	C  FOR SUBROUTINE FLAG.  CAN'T CALL SUBR AT SAME TIME AS REP OR X!!!!
41510		GO TO 43615
41610	53612	IF(N.NE.IAA)GO TO 43611
41710	C   FINDS 'ALL'.
41810		IF(INP(JD+1).NE.'L')GO TO 236
41910		ALL=-1.
42010		GO TO 43615
42110	C  TYPE 'ALL' AFTER PARAM NUM TO PUT DATA IN ALL INSTS.
42210	
42310	C  QUAD CALL MUST BE IN 1ST OF 5 PARAMS.  QUAD MUST BE FOLLOWED
42410	C   BY SPC, / OR ;.  OTHER CALLS SUCH AS MOVE,NUM ETC. CAN
42510	C   APPEAR BEFORE  / OR ;, BUT "ALL" MUST! APPEAR 
42610	C   BEFORE! QUAD (IF USED).
42710	C  ADD AN "F" TO QUAD FOR FUNCTIONS, AN "X" FOR X,Y COORDS.
42810	C BASIC QUAD PRODUCES CIRCLES. /DEGS/RADIUS/CENT. X/CENT. Y/
42910	C  QUADX -- /X /Y / (5TH PARAM WILL ALWAYS BE WASTED)
43010	43611	IF(N.NE.'Q')GO TO 4361
43110		IF(INP(JD+1).NE.'U')GO TO 4361
43210		QX=-13.
43310		DO 43612 N=JD,LEND
43410		J=INP(N)
43510		IF(J.EQ.IXX)QX=QX-1.
43610		IF(J.EQ.IF)QX=QX-2.
43710		IF(J.EQ.IBLA)GO TO 236
43810		IF(J.EQ.KSLA)GO TO 236
43910	CCZZZ	IF(J.EQ.IBLA.OR.J.EQ.KSLA.OR.J.EQ.ISEMI.OR.J.EQ.',')GO TO 236
44010	43612	INP(N)=IBLA
44110	4361	IF(N.NE.'I')GO TO 43613
44210		IF(ISUB.NE.4)GO TO 43613
44310	C  'NM INV' MAKES INST NAME, P1 AND P2 INVISIBLE (REPLACES SEG, ETC.)
44410		INVIS(LK)=-1
44510	43615	DO 43614 L=JD,LEND
44610		N=INP(L)
44710	CC	IF(N.EQ.IBLA.OR.N.EQ.KSLA)GO TO 236
44810		IF(N.EQ.IBLA)GO TO 236
44910		IF(N.EQ.ISEMI)GO TO 236
45010	CCZZZ	IF(N.EQ.IBLA.OR.N.EQ.','.OR.N.EQ.ISEMI.OR.N.EQ.KSLA)GO TO 236
45110	43614	INP(L)=IBLA
45210	CC43613	IF(N.NE.KSLA)GO TO 636
45310	43613	IF(N.NE.KSLA)GO TO 1336
45410	CC	JZ=-1
45510		IF(JD.GE.LEND-1)JZ=0
45610	C  SO IT WILL READ NEXT LINE.
45710	CZZZZZZZZZZZZZZZ	INP(JD)=ISEMI
45810		GO TO 336
45910	CCZZZ436	IF(INP(MLX).NE.IBLA)GO TO 336
46010	CCZZZ	MLX=MLX+1
46110	CCZZZ	GO TO 436
46210	CC636	IF(JD.LT.LEND)GO TO 1336
46310	CC	ICON=0
46410	CC	GO TO 77731
46510	CC	GO TO 7773
46610	C  TO CONTINUE ON NEXT LINE.
46710	CCZZZ636	IF(N.NE.ISEMI)GO TO 936
46810	1336	IF(N.NE.ISEMI)GO TO 936
46910		IAMP=-1
47010	CC	IF(ISUB.NE.1)IAMP=-1
47110	336	MLX=JD+1
47210		IF(ISUB.EQ.104)GO TO 104
47310		IF(ISUB.GT.3)GO TO 1899
47410	   	GO TO (101,102,103),ISUB
47510	C             PAR  MOV LIST  OTHERS
47610	CCZZZ936	IF(N.NE.IDOT)GO TO 736
47710	936	IF(N.NE.IDOT)GO TO 136
47810		L=INP(JD+1)
47910		DO 836 KL=1,10
48010	836	IF(L.EQ.IDAT(KL))GO TO 236
48110		IF(CODE.EQ.-22.)INP(JD)=1
48210		GO TO 236
48310	C   CHANGES DOTTED RHYTHMS TO '1'S.
48410	CCZZZ736	IF(N.NE.'*')GO TO 136
48510	CCZZZ	IAMP=-1
48610	CCZZZ	INP(JD)=IBLA
48710	CCZZZ	GO TO 336
48810	136	IF(N.NE.IQT)GO TO 236
48910		DO 1361 K=JD+1,LEND
49010		IF(INP(K).NE.IQT)GO TO 1361
49110		JD=K+1
49210		GO TO 975
49310	C   SKIPS MATERIAL IN QUOTES
49410	1361	CONTINUE
49510		CALL ERR(LN)
49610	C   OPEN QUOTES
49710	236	JD=JD+1
49810		IF(JD.LE.LEND)GO TO 975
49910		CALL ERR(1)
50010	1899	CALL SCANR
50110	CZZZZZZZ	ML=MLX
50210	CZZZZZZZZZZZZZZZZZZZZZZZZZZ
50310		GO TO(1,2,3,4,5,6),ISUB